home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swags_z.zip
/
STRINGS.SWG
/
0032_Determine empty string.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-09-26
|
829b
|
28 lines
{*****************************************************************************
* Function ...... Empty()
* Purpose ....... To determine if a string is empty
* Parameters .... s String to check
* Returns ....... TRUE if <s> is 0 bytes in length, or is filled with #0 or
* spaces.
* Notes ......... None
* Author ........ Martin Richardson
* Date .......... May 13, 1992
*****************************************************************************}
FUNCTION Empty( s: STRING ): BOOLEAN; ASSEMBLER;
ASM
CLD
XOR CH, CH
LES DI, s
MOV CL, BYTE PTR ES:[DI]
JCXZ @@1
INC DI
MOV AL, ' '
REPE SCASB
JZ @@1 { empty }
MOV AL, False
JMP @@2
@@1: MOV AL, True
@@2:
END;